From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 May 1993 05:45:47 +0000 (+0000)
Subject: (indent-sexp): Even if outer-loop-done is t, still move down one line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95819
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1f5038b52e5c14d69a4615c9992625e848f6d43b;p=emacs.git

(indent-sexp): Even if outer-loop-done is t, still move down one line.
---

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index 4a75b4c4097..17acda41e22 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -560,7 +560,7 @@ ENDPOS is encountered."
 	(or outer-loop-done
 	    (setq outer-loop-done (<= next-depth 0)))
 	(if outer-loop-done
-	    nil
+	    (forward-line 1)
 	  (while (> last-depth next-depth)
 	    (setq indent-stack (cdr indent-stack)
 		  last-depth (1- last-depth)))